From: Glenn Morris <rgm@gnu.org>
Date: Wed, 18 Apr 2007 06:43:09 +0000 (+0000)
Subject: Improve previous fix by only setting header-line-format in diary-mode.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~783
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9c4bbf6ce06f8a508042a7ae6e6996ff21aae937;p=emacs.git

Improve previous fix by only setting header-line-format in diary-mode.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 5838851246f..ee93b60eb98 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -446,8 +446,9 @@ If LIST-ONLY is non-nil don't modify or display the buffer, only return a list."
           ;; clobbers file local variables.
           ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-03/msg00363.html
           ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-04/msg00404.html
-          (setq header-line-format (and diary-header-line-flag
-                                        diary-header-line-format)))
+          (if (eq major-mode 'diary-mode)
+              (setq header-line-format (and diary-header-line-flag
+                                            diary-header-line-format))))
         ;; d-s-p is passed to the diary display function.
         (let ((diary-saved-point (point)))
           (save-excursion